Исходный код

'==========================================================================
'Сообщить информацию о текущем времени и пользователе TDMS
MsgBox "Текущее время: " & ThisApplication.CurrentTime & Chr(13) & _
        "Текущий пользователь: " & ThisApplication.CurrentUser.Description, _
        vbInformation, "Информация" 
'==========================================================================